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le: MCLEFT.BLI Edit: JBS1003 
BEGIN 
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'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
i. ALL RIGHTS RESERVED. 

'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE Sr RAN TDER On OT THIS SOFTWARE OR ANY OTHER 


} Ov! 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® TRANSFERRED. * 
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t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
tw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 
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ie DIGITAL ASSUMES NO Cee ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
!® SOFTWARE ON EQUIPMENT WiiICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 

Move cursor left. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 
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One MODIFIED BY: 
44 004 1-001 - Original. DJS 19-FEB-1981. This module was created by 
45 04 extracting routine EDT$$CS_ et from module MOVCUR. 
4 04 1-002 - Regularize headers. JBS 11-Mar-1981 
rt} Be 1-005 - Improve the appearance of the Listing. JBS 17-Jun-1983 
49 004 
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FACILITY: EDT -- The DEC Standard Editor 
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EDTSMCLEFT EDTSMCLEFT = move cursor left I8-se -1984 01:11: VAX-11 Bliss-32 V4.0-74 Page 3 
Oat 000 EDTSSCS. LEFT = move cursor left 1 ~3007 1382 b:3 4:08 DIEKSVMGHASTERSCEDT SRCSMCLEFT BLIs1 . (3) 
; : 33 } AZSBTTL ‘EDTSSCS_LEFT = move cursor left’ 
; : 4 § } GLOBAL ROUTINE EDTSSCS_LEFT ! Move cursor left 
by = 
3 8 o38 1 
3 9 6 1 te¢ 
: oy ree : FUNCTIONAL DESCRIPTION: 
; 4 666 1 This routine moves the cursor one character to the left. If the curser 
. § 665 1! is on the first character of the Line, we move to the previous Line 
: Be ree) : : (positioning on the Line terminator). 
: %6 os | FORMAL PARAMETERS: 
: 98 Oss 1! NONE 
; 99 bes 1! 
: 190 th : } IMPLICIT INPUTS: 
: 10 672 1: EDTS$$T_LN_BUF 
3 \? of? : EDTSSA_LN_END 
; 105 0675 { IMPLICIT OUTPUTS: 
; 107 0677 ; EDTSS$A_LN_PTR 
; 109 679 1 ROUTINE VALUE: 
: 111 681 1! 1 = move successful 
3 \\¢ re} ! : 0 = could not move 
; 114 O68 t SIDE EFFECTS: 
; 116 068 | NONE 
: 118 O68 1 i-- 
: 119 0689 1 
3 ' 4 BEGIN 
: 4 é 69 EXTERNAL ROUTINE 
3 : Z a EDTSSCS_UP; 
> 125 95 EXTERNAL 
: 126 096 EDTSS$T_LN_BUF, ' Current line buffer. 
: 127 69 EDTSSA_LN_PTR, ' Current character pointer. 
3 ! : 4 EDTSSA_LN_END; ! End of current Line pointer. 
: 130 $80 16 
3 : ; : Check to see if we are on the first character. 
; 1 7 
; 134 7 IF CHSPTR_EQL (.EDTSSA_LN_PTR, CHSPTR (EDTS$T_LN_BUF)) 
3 135 705 THEN 
: ' $ 709 BEGIN 
: 138 708 i On the first character. Try to go up a Line and position to the Line 
3 Fe ~” : terminator. If the move up fails, return failure. 


SMCLEFT EDTSMCLEFT = move cursor left 1 R. $1984 01:11: VAX-11 Bliss-32_V Ped e 4 
§Ou-000 EDTSSCS.LEFT = move cursor left if Be0n 1 8be PbiSbi Se | Me SdnGmaStencceor sacimcuert.eut;1 «34 
> (141 711 
H 148 n8 IF CEDTSSCS_UP () EQL 0) THEN RETURN (0); 

: 144 gi EDTSSA_LN_PTR = .EDTSSA_LN_END; 

; 146 216 ELSE 

; (14 71 

; 148 at i Not on the first character, simply move back one character and return 

: 149 71 i success. 

$ 120 720 ie 

3 } 1 1 

; 138 7 ; RETURN (1); 

: «4154 724 END; ! of routine EDTSSCS_LEFT 


-TITLE EDTSM guert EDTSMCLEFT - move cursor left 
-IDENT \v04-000 
EXTRN EDTSSCS_UP, EDTS$T_LN_BUF 
SEXTRN EDTS$S$A_CN_PTR, EDTSS$A~LN_END 
-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
0004 00000 ENTRY EDTSscs LEFT, Save R2 : 0656 
3 000000006 00 9€E BOR MOVAB EDTSSA_CN PTR, R2 3 
50 000000006 4 9E 0000 MOVAB EDTSS$T_LN -by F, RO 3 0704 
50 62 Di 00010 CMPL EDTSSA_ LN_ “PTR. RO 3 
14 12 00013 BNEQ 1$ 3 
000000006 00 of FB 00015 CALLS #0, EDTSS$CS_UP 3 0712 
DS 0001C TSTL RO 3 
OF 13 tt BEQL 3$ 3 
62 000000006 00 pO 000 MOVL EDTSSA_LN_END, EDTSS$A_LN_PTR 3: 0714 
Os 11 00027 BRB $ 3: 0704 
62 D7 00029 1$: DECL EDTSSA_LN_PTR 3 brs) 
50 01 DO 00028 2$: MOVL #1, RO ; 0723 
04 0002E RET 3 
50 04 O002F 3$: CLRL RO 3 0724 
04 00031 RET 3 


; Routine Size: 50 bytes, Routine Base: _EDTSCODE + 0000 


155 


| 

EDTSSA_LN_PTR = CHSPLUS (.EDTSSA_LN_PTR, -1); 
EE 

156 726 1 !<BLF/PAGE> 
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TSACLEFT EDTSMCLEFT = move cursor left -Sep 4 VAX-11 Bliss-32 V4.0 
842000 Drees LEFT = move cursor left 127868 Sep 71382 9}: df 98 DISKSVMSMASTER:CE Ht she MCLEFT.BLI; "ta 
1 727 1 END ! T F 
12 O78 } of module EDTSMCLEFT 
160 7 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 50 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eoceoses Syabol§ ecceceee Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: S$ 2L32;1 377 1 0 40 00:00.2 
~$255$DUA28: SEED *SREIPSE CTS.L32;1 2 1 50 7? 00:00.1 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MCLEFT/OBJ=OBJ$:MCLEFT MSRCS$:MCLEFT.BLI/UPDATE=(ENHS:MCLEFT) 


Ziaes 50 code + 0 data bytes 
00:09.5 


eee Time: 00:12. 
Lines/CPU Min: 459 
Lexemes/CPU-Min: 12277 
como t Used: 55 pages 
ation coaptere 


PMENT CORPORATION 


AH-BT13A-SE 
AND PROPRIETARY 


VAX/VMS V4.0 


13 


